#!/usr/bin/perl

use CGI qw(:standard);
use XML::RSS;
use LWP::Simple qw(get);

my $numero_elementos = param('num_elementos');

#Baja  fichero
my $fichero = get('http://atalaya.blogalia.com/rdf.xml');
my $rss = new XML::RSS;
$rss->parse($fichero);
my @items = @{$rss->{'items'}};

print header( -type => 'application/xhtml+xml' );

print "<?xml version=\"1.0\" encoding=\"utf-8\"?>\n";

print "<feed>\n";
print "<cabecera>\n";
print "<titulo>$rss->{'channel'}->{'title'}</titulo>\n";
print "<descripcion>$rss->{'channel'}->{'description'}</descripcion>\n";
print "</cabecera>\n";
print "<entradas>\n";

for (my $i = 0; $i < $numero_elementos; $i++) {
  print "<titulo>@items[$i]->{'title'}</titulo>\n";
  print "<enlace>@items[$i]->{'link'}</enlace>\n";
}

print "</entradas>\n";
print "</feed>\n";
